$PBExportHeader$uo_dw_filtros_key.sru
$PBExportComments$Control dw utilizado en la Ventana de Autoconsulta. Hace uso de las teclas F. Reemplaza la tecla TAB con ENTER.
forward
global type uo_dw_filtros_key from uo_dw_filtros
end type
end forward

global type uo_dw_filtros_key from uo_dw_filtros
int Width=1088
int Height=520
event ue_enter_as_tab pbm_dwnprocessenter
end type
global uo_dw_filtros_key uo_dw_filtros_key

event ue_enter_as_tab;call super::ue_enter_as_tab;/* Transforma la tecla ENTER como si fuera la tecla TAB
*/
//Send(Handle(this),256,9,Long(0,0))
Post(Handle(this),256,9,0)
return(1) 

end event

event downkey;Integer rtn = 0
String estilo 

/* Si presione la tecla "+" o "ENTER" y tiene seteada la variable de ir al 
   detalle */
If This.uof_getdetalle_con_add() and keyflags = 0 and (key = KeyAdd! or key = KeySpaceBar! or key = KeyEnter!) Then
	/* 
		keyflag = 0      No presiono ni SHIT ni CTRL
	   keyflag = 1      Presiono la tecla SHIFT
	   keyflag = 2      Presiono la tecla CTRL
	   keyflag = 3      SHIFT+CTRL
	*/	

	/* Llama al evento detalle de la ventana que lo contiene */
	If GetRow() > 0 Then 
		Parent.Event Dynamic ue_dw_detalle (This)
		Return 0
	End If
End If

Choose Case Key
	Case KeyF1!
		Parent.Event Post dynamic ue_tecla_funcion('F1')
	Case KeyF2!
		Parent.Event Post dynamic ue_tecla_funcion('F2')
	Case KeyF3!
		Parent.Event Post dynamic ue_tecla_funcion('F3')
	Case KeyF4!
		estilo =  Upper(This.Describe("#" + String(This.GetColumn()) + ".Edit.Style"))
		/* El F4 sobre una dddw desplega la lista y la cierra. */
		If estilo = 'DDLB' or estilo = 'DDDW' or estilo = 'LISTBOX' Then Return 0

		Parent.Event Post dynamic ue_tecla_funcion('F4')
	Case KeyF5!
		Parent.Event Post dynamic ue_tecla_funcion('F5')
	Case KeyF6!
		Parent.Event Post dynamic ue_tecla_funcion('F6')
	Case KeyF7!
		Parent.Event Post dynamic ue_tecla_funcion('F7')
	Case KeyF8!
		Parent.Event Post dynamic ue_tecla_funcion('F8')
	Case KeyF9!
		Parent.Event Post dynamic ue_tecla_funcion('F9')
	Case KeyF10!
		Parent.Event Post dynamic ue_tecla_funcion('F10')
	Case KeyF11!
		Parent.Event Post dynamic ue_tecla_funcion('F11')
	Case KeyF12!
		Parent.Event Post dynamic ue_tecla_funcion('F12')
End Choose
end event

